home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Graphics / Graphic Demos / PseudoPS / ParsePS.c next >
Encoding:
C/C++ Source or Header  |  1987-08-30  |  5.0 KB  |  239 lines  |  [TEXT/KAHL]
  1. /*
  2.  *  PseudoPS -- a small PostScript interpreter (1987)
  3.  *
  4.  *  Written by        Craig E Rasmussen
  5.  *                    Center for Atmospheric and Space Science
  6.  *                    Utah State University
  7.  *                    Logan, Utah 84322-4405
  8.  *                    (801) 750-2967
  9.  *
  10.  *    email        -    cer@star.stanford.edu
  11.  *                -    theory::craig on the SPAN network
  12.  */
  13.  
  14. #include <Quickdraw.h>
  15. #include <stdio.h>
  16. #include "PseudoPS.h"
  17.  
  18. #define DTR .01745329252
  19.  
  20. float xShift, yShift, xScale, yScale, rotate, cosTH, sinTH;
  21. int HandleAllocated = FALSE, RegionOpen = FALSE;
  22. RgnHandle region;
  23.  
  24.  
  25. ParsePS(s)
  26. char *s;
  27. {
  28.     Rect rect;
  29.     float x1, x2, x3, x4, x5, left, top, right, bottom;
  30.     int pop();
  31.     char outstring[80];
  32.  
  33.     switch (*s) {
  34.         case 'a':
  35.             if (strcmp(s,"arc") == 0) {
  36.                 if (pop(&x5) != 0) StackError();
  37.                 if (pop(&x4) != 0) StackError();
  38.                 if (pop(&x3) != 0) StackError();
  39.                 if (pop(&x2) != 0) StackError();
  40.                 if (pop(&x1) != 0) StackError();
  41.                 left   = x1 - x3;
  42.                 top    = x2 + x3;
  43.                 right  = x1 + x3;
  44.                 bottom = x2 - x3;
  45.                 transform(&left, &top);
  46.                 transform(&right, &bottom);
  47.                 SetRect(&rect,(int)left,(int)top,(int)right,(int)bottom);
  48.                 FrameArc(&rect, (int)(90.-x4), (int)(x4-x5));
  49.             }
  50.             else PSerror(s);
  51.             break;
  52.         case 'c':
  53.             if (strcmp(s,"closepath") == 0) {
  54.                 if (!HandleAllocated) PSerror("closepath (no RegionHandle)");
  55.                 else if (!RegionOpen) PSerror("closepath (no current path)");
  56.                 else {
  57.                     CloseRgn(region);
  58.                     RegionOpen = FALSE;
  59.                 }
  60.             }
  61.             else PSerror(s);
  62.             break;
  63.         case 'f':
  64.             if (strcmp(s,"fill") == 0) {
  65.                 if (!HandleAllocated) PSerror("fill (no RegionHandle)");
  66.                 else {
  67.                     PaintRgn(region);
  68.                     DisposeRgn(region);
  69.                     HandleAllocated = FALSE;
  70.                 }
  71.             }
  72.             else PSerror(s);
  73.             break;
  74.         case 'l':
  75.             if (strcmp(s,"lineto") == 0) {
  76.                 if (pop(&x2) != 0) StackError();
  77.                 if (pop(&x1) != 0) StackError();
  78.                 transform(&x1, &x2);
  79.                 LineTo((int)x1, (int)x2);
  80.             }
  81.             else PSerror(s);
  82.             break;
  83.         case 'm':
  84.             if (strcmp(s,"moveto") == 0) {
  85.                 if (pop(&x2) != 0) StackError();
  86.                 if (pop(&x1) != 0) StackError();
  87.                 transform(&x1, &x2);
  88.                 MoveTo((int)x1, (int)x2);
  89.             }
  90.             else PSerror(s);
  91.             break;
  92.         case 'n':
  93.             if (strcmp(s,"newpath") == 0) {
  94.                 if (HandleAllocated) {
  95.                     if (RegionOpen) {
  96.                         PSerror("newpath (region already open)");
  97.                         CloseRgn(region);
  98.                     }
  99.                     PSerror("newpath (RegionHandle already created)");
  100.                     DisposeRgn(region);
  101.                 }
  102.                 region = NewRgn();
  103.                 OpenRgn();
  104.                 HandleAllocated = TRUE;
  105.                 RegionOpen = TRUE;
  106.             }
  107.             else PSerror(s);
  108.             break;
  109.         case 'r':
  110.             if (strcmp(s,"rlineto") == 0) {
  111.                 if (pop(&x2) != 0) StackError();
  112.                 if (pop(&x1) != 0) StackError();
  113.                 scale(&x1, &x2);
  114.                 Line((int)x1, (int)x2);
  115.             }
  116.             else if (strcmp(s,"rmoveto") == 0) {
  117.                 if (pop(&x2) != 0) StackError();
  118.                 if (pop(&x1) != 0) StackError();
  119.                 scale(&x1, &x2);
  120.                 Move((int)x1, (int)x2);
  121.             }
  122.             else if (strcmp(s,"rotate") == 0) {
  123.                 if (pop(&x1) != 0) StackError();
  124.                 rotate = x1;
  125.                 cosTH = 0.0;  /*cos(rotate*DTR);*/
  126.                 sinTH = 1.0;  /*sin(rotate*DTR);*/
  127.             }
  128.             else PSerror(s);
  129.             break;
  130.         case 's':
  131.             if (strcmp(s,"scale") == 0) {
  132.                 if (pop(&x2) != 0) StackError();
  133.                 if (pop(&x1) != 0) StackError();
  134.                 xScale *= x1;
  135.                 yScale *= x2;
  136.             }
  137.             else if (strcmp(s,"scalefont") == 0) {
  138.                 if (pop(&x1) != 0) StackError();
  139.                 TextSize((int)x1);
  140.             }
  141.             else if (strcmp(s,"setgray") == 0) {
  142.                 if (pop(&x1) != 0) StackError();
  143.                 if (x1 > .875) PenPat(white);
  144.                 else if (x1 > .625) PenPat(ltGray);
  145.                 else if (x1 > .375) PenPat(gray);
  146.                 else if (x1 > .125) PenPat(dkGray);
  147.                 else PenPat(black);
  148.             }
  149.             else if (strcmp(s,"setlinewidth") == 0) {
  150.                 if (pop(&x1) != 0) StackError();
  151.                 PenSize((int)x1, (int)x1);
  152.             }
  153.             else if (strcmp(s,"show") == 0) {
  154.                 CtoPstr(PStext);
  155.                 DrawString(PStext);
  156.             }
  157.             else if (strcmp(s,"showpage") == 0) break;        /* nop */
  158.             else if (strcmp(s,"stroke") == 0) {
  159.                 if (!HandleAllocated) PSerror("stroke (no RegionHandle)");
  160.                 else {
  161.                     FrameRgn(region);
  162.                     DisposeRgn(region);
  163.                     HandleAllocated = FALSE;
  164.                 }
  165.             }
  166.             else PSerror(s);
  167.             break;
  168.         case 't':
  169.             if (strcmp(s,"translate") == 0) {
  170.                 if (pop(&x2) != 0) StackError();
  171.                 if (pop(&x1) != 0) StackError();
  172.                 xShift += x1;
  173.                 yShift += x2;
  174.             }
  175.             else PSerror(s);
  176.             break;
  177.         default:
  178.             PSerror(s);
  179.     }
  180. }
  181.  
  182. PSerror(s)
  183. char *s;
  184. {
  185. /*    SerialPutS("\n%offending command -> ");
  186.     SerialPutS(s);
  187.     SerialPutChar('\n');  */
  188.     fprintf(fpErr, "%%offending command -> %s\n", s);
  189. }
  190.  
  191.  
  192. StackError()
  193. {
  194. /*    SerialPutS("\n%stack error\n");  */
  195.     fprintf(fpErr, "\n%%stack error\n");
  196. }
  197.  
  198.  
  199. transform(x, y)
  200. float *x, *y;
  201. {
  202.     *x += xShift;
  203.     *y += yShift;    
  204.     scale(x, y);
  205. }
  206.  
  207.  
  208. scale1D(r)
  209. float *r;
  210. {
  211.     *r *= sqrt(xScale*xScale + yScale*yScale);
  212. }
  213.  
  214.  
  215. TransformAngle(t)
  216. float *t;
  217. {
  218.     *t += rotate;
  219. }
  220.  
  221.  
  222. scale(x, y)
  223. float *x, *y;
  224. {
  225.     *x *=  xScale;
  226.     *y *= -yScale;                    /* change increasing y to upwards */
  227. }
  228.  
  229. SetTransforms(wXtop, wYtop, wXbot, wYbot)
  230. int wXtop, wYtop, wXbot, wYbot;
  231. {
  232.     xShift = 0.0; yShift = 0.0; xScale = 1.0; yScale = 1.0;
  233.     rotate = 0.0; cosTH = 1.0; sinTH = 0.0;
  234.     SetOrigin(0, wYtop - wYbot);
  235.     PenPat(black);
  236.     PenSize(1,1);
  237. }
  238.  
  239.